Imports pixolut.BizBlox

Public Class FoodCollection
    Inherits DOCollection

'START BizBlox Generated Code : Do not remove or alter this comment
'Last Updated : Tuesday, 24 August 2004 4:01:21 PM
'BizBlox Version : 0.9.1.22818
#Region "BizBlox Generated Code"

    Sub New()
        MyBase.New(New DOFactory(New Food))
    End Sub

    'to typecast your item() property
    Default Public Shadows ReadOnly Property Item(ByVal i As Integer) As Food
        Get
            Return CType(MyBase.Item(i), Food)
        End Get
    End Property

#End Region
'END BizBlox Generated Code : Do not remove or alter this comment


    'Example finder method
    '*********************
    'Public Sub FindByClientName(ByVal name As String)
    '    Dim mySql As SqlBuilder = MyBase.GetSqlBuilder()
    '    mySql.addWhere(ExampleClient.Columns.ColumnName, name)
    '    mySQL.addWhere(New ExampleClient, ExampleClient.Columns.myIDColumn, "hello")
    '    MyBase.find(mySql)
    'End Sub

End Class




